PARAMETERS dateIn
IF ( dateIn == {  /  /    })
RETURN [0000-0-0]
ENDIF
RETURN ALLTRIM(STR(YEAR(dateIn)))+[-]+ALLTRIM(STR(MONTH(datein)))+[-]+ALLTRIM(STR(DAY(datein)))